Mi primer Quarto

Author

Wagner Chacón Ulate

Introducción:

Base de datos Dt y demas. E instalación de paquetes. `

Datos:

Libreria 1:

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.2     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.2     ✔ tibble    3.2.1
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.1     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

Libreria 2:


Attaching package: 'plotly'
The following object is masked from 'package:ggplot2':

    last_plot
The following object is masked from 'package:stats':

    filter
The following object is masked from 'package:graphics':

    layout

Datos COVID Costa Rica

Rows: 816 Columns: 9
── Column specification ────────────────────────────────────────────────────────
Delimiter: ";"
chr (1): FECHA
dbl (8): positivos, nue_posi, fallecidos, nue_falleci, salon, UCI, RECUPERAD...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Delitos Costa Rica

Rows: 96651 Columns: 12
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (12): Delito, SubDelito, Fecha, Hora, Victima, SubVictima, Edad, Genero,...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Tablas de contenidos de los paquetes:

En estas tablas estan disponibles diversas caracteristicas de los paquetes de automoviles y de diamantes.

Automoviles disponibles:

Clasificación de diamantes:

Warning in instance$preRenderHook(instance): It seems your data is too big for
client-side DataTables. You may consider server-side processing:
https://rstudio.github.io/DT/server.html

Otra tabla:

Caso tabla COVID Costa Rica:

En este caso hay que aplicar un cambio de nombre a algunas columnas del Datafrme.

# A tibble: 816 × 9
   fecha      positivos activos recuperados fallecidos nuevos_positivos
   <chr>          <dbl>   <dbl>       <dbl>      <dbl>            <dbl>
 1 06/03/2020         2       2           0          0                2
 2 07/03/2020         7       7           0          0                5
 3 08/03/2020        10      10           0          0                3
 4 09/03/2020        12      12           0          0                2
 5 10/03/2020        13      13           0          0                1
 6 11/03/2020        22      22           0          0                9
 7 12/03/2020        23      23           0          0                1
 8 13/03/2020        26      26           0          0                3
 9 14/03/2020        27      27           0          0                1
10 15/03/2020        35      35           0          0                8
# ℹ 806 more rows
# ℹ 3 more variables: nuevos_fallecidos <dbl>, salon <dbl>, uci <dbl>

Ahora, creamos ka tabla para covid Costa Rica

#! echo: false 

covid_general |>
  datatable(
    options = list(
      pageLength = 5,
      language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')
    )
)

Tabla de Delitos Costa Rica:

Warning in instance$preRenderHook(instance): It seems your data is too big for
client-side DataTables. You may consider server-side processing:
https://rstudio.github.io/DT/server.html

GRAFICOS

Grafico de cilindrada:

Se muestra un grafico de la cilindrada según el modelo del vehiculo.

Cilindrada vrs milla por galón:

Se muestra un grafico de relacuión de los galómes de combustile consumidos por milla y el cilindrado del modelo del vehiculo.

Varias variables

. varias variables o “capas” en un solo grafico.

`geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Se coloria el grafico, segun el tipo de traccion de los autos

Grafico con paneles:

¿Y si combinamos varios temas y datos en un solo grafico, pero sin comprometer sus interpretaciónes y su facilidad? Para eso esta el grafico con paneles

`geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Con Plot 2

Mismo grafico con Plot 2

`geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Agregando más opciones visuales a los graficos.

Grafico con opciones visuales

`geom_smooth()` using method = 'loess' and formula = 'y ~ x'

NOTE: Either Arial Narrow or Roboto Condensed fonts are required to use these themes.
      Please use hrbrthemes::import_roboto_condensed() to install Roboto Condensed and
      if Arial Narrow is not on your system, please see https://bit.ly/arialnarrow

Coloriado por diversas etiquetas.

`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
not found in Windows font database

Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
not found in Windows font database
Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database
Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
not found in Windows font database

Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
not found in Windows font database

Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
not found in Windows font database
Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database
Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
font family not found in Windows font database
Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Grafico de disperción: diamantes y sus kilates.

En este grafico de dispercion se muestra la relación de los pesos y los kilates y los diamantes.

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database
Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
font family not found in Windows font database
Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
family not found in Windows font database

Conversión de graficos

Warning in geom_point(aes(text = paste0("Modelo: ", manufacturer, " ", model, :
Ignoring unknown aesthetics: text
`geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Otros graficos

Histograma

El ejemplo es un histograma de el PIB (producto interno bruto) per capita, es decir la cantidad de dinero que en teoria le tocaria a cada érsona en un país.

Warning in geom_histogram(aes(text = paste0("PIB per cápita (valor medio del
rango): $", : Ignoring unknown aesthetics: text

Podemos crear el mismo histograma, pero con la variante del continente

Warning in geom_histogram(aes(text = paste0("Continente: ", after_stat(fill), :
Ignoring unknown aesthetics: text

por últino, en este histograma final, vemos la distribución de el PIB segun continente, es decir el pais mas rico al mas pobre de cada continente.

Warning in geom_histogram(aes(text = paste0("PIB per cápita (valor medio del
rango): $", : Ignoring unknown aesthetics: text

Graficos de caja:

Siguiendo con el tema del PIB, veamos un grafico de caja, un grafico donde las barras muestran varias aristas de informacion.

Grafico de barras:

El clasico grafico de barras hecho de manera interactiva y mostrando diversas opciones de datos.

Warning in geom_bar(aes(text = paste0("Cantidad de países: ",
after_stat(count)))): Ignoring unknown aesthetics: text

Se pueden crear en otro orden, por ejemplo estos de diamantes. Clasificados segun su corte.

Warning in geom_bar(aes(text = paste0("Cantidad de diamantes: ",
after_stat(count)))): Ignoring unknown aesthetics: text

Grafico de esperanza de vida.

Warning in geom_bar(stat = "summary", fun.y = "mean", aes(text =
paste0("Promedio de esperanza de vida: ", : Ignoring unknown parameters:
`fun.y`
Warning in geom_bar(stat = "summary", fun.y = "mean", aes(text =
paste0("Promedio de esperanza de vida: ", : Ignoring unknown aesthetics: text
No summary function supplied, defaulting to `mean_se()`

Ahora, calculamos varias funciones de los graficos de barras con diversas funciones. Usando el promedio de esperanza de vida.

Calculo de esperanza de vida por continente en el año 2007.

# A tibble: 5 × 2
  continent lifeExp_mean
  <fct>            <dbl>
1 Oceania           80.7
2 Europe            77.6
3 Americas          73.6
4 Asia              70.7
5 Africa            54.8
Warning in geom_col(aes(text = paste0("Promedio de esperanza de vida: ", :
Ignoring unknown aesthetics: text

Graficos sin restricciones

No es necesario tener un tamaño establecido, por erso, se adapta por los datos.

En este caso, vemos la cantidad de pobladores de las naciones en Ámerica en 2007, contadas por millones de habitantes.

Warning in geom_col(aes(text = paste0("País: ", country, "\n", "Población
(millones de habitantes): ", : Ignoring unknown aesthetics: text

Graficos agrupados:

Un grafico asi, permite agregar mas variables a una barra, siendo que, da la apariencia a estos de estar apiladas.

Este grafico muestra varias variables en damiantes.

Aun asi, podemos darle una apariencia mas uniforme a las graficaciones de barras apiladas

Graficos de disperción:

En estos, se comparan mas variables (numericas en su mayoria). En el siguiente grafico se compara el PIB de los paises con la esperanza de vida.

Warning in geom_point(aes(text = paste0("País: ", country, "\n", "PIB per
cápita: $", : Ignoring unknown aesthetics: text
`geom_smooth()` using formula = 'y ~ x'

Agreguemos una variable más, como los continentes indicados por colores.

Warning in geom_point(aes(text = paste0("País: ", country, "\n", "Continente:
", : Ignoring unknown aesthetics: text

Conclusión:

Aunque se instalaron paquetes de COVID Costa Rica y Delitos cometidos en Costa Rica, por diversas situaciones no fue posible usarlos.